home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / S13B2197.EXE / Silence / aliases3.ini < prev    next >
INI File  |  1997-01-05  |  8KB  |  160 lines
  1. [Aliases]
  2. n0=percent { 
  3. n1=  if (($3 > 5) || ($3 < 1) || ($3 = $null)) echo 4 !Sí percent can not exceed 5 decimals and can not be less than one
  4. n2=  else { %percent.thou = [ $1 ] * [ 100 $+ [ $str($3,0) ] ]
  5. n3=    %percent.numb = [ [ %percent.thou ] ] / [ $2 ]
  6. n4=    %percent.temp = [ [ $len(%percent.numb) ] ] - [ $3 ]
  7. n5=    %percent.last = $chr(37) $+ $left(%percent.temp,%percent.numb) $+ . $+ $right($3,%percent.numb)
  8. n6=    return $replace(%percent.last,$null,0)
  9. n7=  }
  10. n8=}
  11. n9=status2 {
  12. n10=  set %status2.switch no
  13. n11=  echo 7 $active !Sí Scanning Status for $chan $+ ...
  14. n12=  set %status2.opers 0
  15. n13=  set %status2.away 0
  16. n14=  set %status2.here 0
  17. n15=  set %status2.voice 0
  18. n16=  set %status2.novoice 0
  19. n17=  set %status2.chan #
  20. n18=  set %status2.switch on
  21. n19=  set %status2.type on
  22. n20=  set %status2.users $nick(0,%status2.chan)
  23. n21=  set %status2.ops $opnick(0,%status2.chan)
  24. n22=  set %status2.noops $nopnick(0,%status2.chan)
  25. n23=  set %status2.joins !Sí Joins: [ % $+ status3.2. [ $+ [ # ] $+ .joins ] ]  Last Join: [ % $+ status3.2. [ $+ [ # ] $+ .lastjoin ] ]
  26. n24=  set %status2.parts !Sí Parts: [ % $+ status3.2. [ $+ [ # ] $+ .parts ] ]  Last Part: [ % $+ status3.2. [ $+ [ # ] $+ .lastpart ] ]
  27. n25=  set %status2.kicks !Sí Kicks: [ % $+ status3.2. [ $+ [ # ] $+ .kicks ] ]  Last Kick: [ % $+ status3.2. [ $+ [ # ] $+ .lastkick ] ]
  28. n26=  set %status2.quits !Sí Quits: [ % $+ status3.2. [ $+ [ # ] $+ .quits ] ]  Last Quit: [ % $+ status3.2. [ $+ [ # ] $+ .lastquit ] ]
  29. n27=  set %status3.2.bans 0
  30. n28=  unset %status3.2.bannames
  31. n29=  .enable #filterstuff
  32. n30=  mode %status2.chan +b
  33. n31=  topic #
  34. n32=  who #
  35. n33=}
  36. n34=status2.2 {
  37. n35=  if (%status2.chan = $null) { echo 4 -a u need 2 be on a channel stupid
  38. n36=  halt }
  39. n37=  set %novoice $nick(0,%status2.chan) - $opnick(0,%status2.chan)
  40. n38=  set %status2.novoice %novoice - %status2.voice
  41. n39=  echo 4 %status2.chan !Sí Channel Status for %status2.chan at $atime
  42. n40=  echo 2 %status2.chan !Sí Operators: %status2.ops ( $+ $percent(%status2.ops,%status2.users,3) $+ )
  43. n41=  echo 2 %status2.chan !Sí Non-Ops: %status2.noops ( $+ $percent(%status2.noops,%status2.users,3) $+ )
  44. n42=  echo 2 %status2.chan !Sí IRCops: %status2.opers ( $+ $percent(%status2.opers,%status2.users,3) $+ )
  45. n43=  echo 2 %status2.chan !Sí Voice: %status2.voice ( $+ $percent(%status2.voice,%status2.users,3) $+ )
  46. n44=  echo 2 %status2.chan !Sí No-Voice: %status2.novoice ( $+ $percent(%status2.novoice,%status2.users,3) $+ )
  47. n45=  echo 2 %status2.chan !Sí Total Users: %status2.users  Here: %status2.here ( $+ $percent(%status2.here,%status2.users,3) $+ )  Gone: %status2.away ( $+ $percent(%status2.away,%status2.users,3) $+ )
  48. n46=  if ($chan(%status2.chan).mode = $null) { 
  49. n47=  echo 2 %status2.chan !Sí Chan Modes: (none) }
  50. n48=  else { echo 2 %status2.chan !Sí Chan Modes: $chan(%status2.chan).mode }
  51. n49=  if ($chan(%status2.chan).topic = $null) {
  52. n50=  echo 2 %status2.chan !Sí Topic: (none) }
  53. n51=  else { echo 2 %status2.chan !Sí Topic: $chan(%status2.chan).topic
  54. n52=  echo 2 %status2.chan !Sí Topic set by %status2.topic.nick %status2.topic.time ago }
  55. n53=  if ($chan(%status2.chan).key = $null) { 
  56. n54=  echo 2 %status2.chan !Sí Key: (none) }
  57. n55=  else { echo 2 %status2.chan !Sí Key: $chan(%status2.chan).key }
  58. n56=  if ($chan(%status2.chan).limit = $null) { 
  59. n57=  echo 2 %status2.chan !Sí Limit: (none) }
  60. n58=  else { echo 2 %status2.chan !Sí Limit: $chan(%status2.chan).limit }
  61. n59=  echo 2 %status2.chan %status2.joins
  62. n60=  echo 2 %status2.chan %status2.parts
  63. n61=  echo 2 %status2.chan %status2.quits
  64. n62=  echo 2 %status2.chan %status2.kicks
  65. n63=  echo 2 %status2.chan !Sí Bans: %status3.2.bans Ban-Names: %status3.2.bannames
  66. n64=  echo 4 %status2.chan !Sí Channel Status for %status2.chan at $atime
  67. n65=  set %chanstats.switch off
  68. n66=  unset %status2.*
  69. n67=halt }
  70. n68=}
  71. n69=fix load -a c:\silence\silence\aliases.ini
  72. n70=yes $read -l1 c:\silence\text\yesno.txt
  73. n71=no $read -l2 c:\silence\text\yesno.txt
  74. n72=enclose return ( $+ *1 $+ )
  75. n73=00001 /.load -a [ $mircdir $+ silence\aliases.ini ]
  76. n74=atime /00009 | /return %hours $+ : $+ $token(2,58,$time) $+ : $+ $token(3,58,$time) $+ %ampm
  77. n75=;; (-)-internal aliases, not for your use-(-)
  78. n76=00005 if ($3 = $null) mode # -k $2 | else mode # -k $3
  79. n77=00009 %hours = $token(1,58,$time) | %ampm = am | if (%hours > 12) { %hours = %hours - 12 | %ampm = pm  | } | if (%hour = 12) %ampm = pm | if (%hours = 0) %hours = 12
  80. n78=00011 whois $me idle
  81. n79=00012 set %lagdet $ctime | raw -q LAGDET 
  82. n80=00018 *2
  83. n81=00019 if (%joinaddy = on) $read -l1 %join# | else $read -l3 %join#
  84. n82=00020 if (%leaveaddy = on) $read -l2 %join# | else $read -l4 %join#
  85. n83=00021 if (%quitaddy = on) $read -l5 %join# | else $read -l6 %join#
  86. n84=title titlebar -:[silence]:- %status.cloak %status.away %status.messages %status.lag %status.email %status.upgrade %status.disconnect %status.ticker áá.oOo.
  87. n85=lock {
  88. n86=  echo 2 $chan !Sí Locking # $+
  89. n87=  mode # +stimnl $nick(0,#)
  90. n88=  set -q %lockkey $rand(0,9) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(5,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(A,Z)
  91. n89=  mode # +k %lockkey
  92. n90=  topic # !Sí CHaNNeL LoCK PHeWLZ!
  93. n91=}
  94. n92=unlock {
  95. n93=  echo 2 $chan !Sí Un-Locking # $+
  96. n94=  mode # %chanmodes
  97. n95=  mode # -k $chan(#).key
  98. n96=  topic # !Sí Welcome to # $+ !
  99. n97=}
  100. n98=takeo {
  101. n99=  set %chan #
  102. n100=  set %takeo $1
  103. n101=  :takeo
  104. n102=  if ($me isop #) {
  105. n103=    if ($1 == $null) {
  106. n104=      echo 2 $chan !Sí Takeover usage: /takeo <phlag> | echo 2 $chan !Sí You can use more than one phlag at once! YES! | echo 2 $chan !Sí Supported Phlags: | echo 2 $chan !Sí O - deop everyone in the chan except you. | echo 2 $chan !Sí K - kicks everyone out of the channel except you | echo 2 $chan !Sí I - makes the channel invite-only | echo 2 $chan !Sí S - make the channel secret | echo 2 $chan !Sí A - Same as doing /takeo osik | echo 2 $chan !Sí X - Locks the channel (+stimnlk <random key>) and de-ops/kicks everyone but you. | echo 2 $chan !Sí Y - Locks the channel (+stimnlk <random key>) but DOES NOT de-op/kick anyone.
  107. n105=    echo 2 $chan !Sí Z - Unlocks channel ( $+ %chanmodes $+ -k) }
  108. n106=    if (o isin %takeo) {
  109. n107=      if ($nick(0,#) == 1) {
  110. n108=        echo 4 %chan !Sí No one else is here!
  111. n109=      }
  112. n110=      else {
  113. n111=        set %takeo.deopnum $nick(0,#) - 1
  114. n112=        echo 4 %chan !Sí Deopping %takeo.deopnum op(s) on #
  115. n113=        set %i 1
  116. n114=        :next
  117. n115=        set %nick $nick(%i,#)
  118. n116=        if %nick == $null goto done
  119. n117=        if ((%nick isop #) && (%nick != $me)) { /mode # -o %nick }
  120. n118=        inc %i
  121. n119=        goto next
  122. n120=        :done
  123. n121=      }
  124. n122=    }
  125. n123=    if (k isin %takeo) {
  126. n124=      if ($nick(0,#) == 1) {
  127. n125=        echo 4 %chan !Sí No one else is here!
  128. n126=      }
  129. n127=      else {
  130. n128=        set %takeo.kicknum $nick(0,#) - 1
  131. n129=        echo 4 %chan !Sí Kicking %takeo.kicknum user(s) on #
  132. n130=        set %i2 1
  133. n131=        :next2
  134. n132=        set %nick $nick(%i2,#)
  135. n133=        if %nick == $null goto done2
  136. n134=        if ((%nick ison #) && (%nick != $me)) { /kick # %nick <-:[takeover]:-> }
  137. n135=        inc %i2
  138. n136=        goto next2
  139. n137=        :done2
  140. n138=      }
  141. n139=    }
  142. n140=    if (i isin %takeo) { echo 4 %chan !Sí Setting # +i | /mode # +i }
  143. n141=    if (s isin %takeo) { echo 4 %chan !Sí Setting # +s | /mode # +s }
  144. n142=    if (a isin %takeo) { /.timer 1 1 /takeo kios }
  145. n143=    if (x isin %takeo) { /.timer 1 1 /takeo ko | /lock }
  146. n144=    if (y isin %takeo) { /lock }
  147. n145=    if (z isin %takeo) { /unlock }
  148. n146=    else {
  149. n147=      if (%takeo1 != on) {
  150. n148=        echo 2 $chan !Sí There is no one else in here!
  151. n149=        unset %takeo1
  152. n150=      }
  153. n151=      else {
  154. n152=        halt
  155. n153=      }
  156. n154=    }
  157. n155=  }
  158. n156=  else { echo 2 $chan !Sí You need to be an op for this to work! }
  159. n157=}
  160.